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TAILS DRMSTR = DRCOPY MASTER MACRO ROUTINES 
ENT ‘v04-000" 
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COPYRIGHT (c) 1978 1980 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND ror ace 
:* ONLY IN ACCORDANCE WITH THE ren OF rater LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE gp TICE. THIS SOFTWARE OR ANY OTHER 
;* COPIES THEREOF MAY NOT BE P ROVIDED. OR GineRuise MADE AVAILABLE TO ANY 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
copohatite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: DRCOPY 


ABSTRACT: 
These routines are a portion of the Master part of DRCOPY 


ENVIRONMENT: User mode 
AUTHOR: STEVE BECKHARDT, CREATION DATE: 17-July-1979 
MODIFIED BY: 
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.SBTTL DECLARATIONS | 

: INCLUDE FILES: 

: MACROS: 

EQUATED SYMBOLS: 


: OWN STORAGE: 
.PSECT MASDATA,LONG 


MASFAB: SFAB FAC = <B10,GET,PUT> ; Master FAB 


MASRAB: $RAB = FAB = ‘MASFAB,- ; Master RAB 
ROP = <B10,ASY> 


-PSECT MASCODE 
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a -SBTTL OPEN_FILE = Open a file for PUT 
FUNCTIONAL DESCRIPTION: 


This Foyt she opens an existing file for a PUT 
and copies the file attributes into a buffer. 


CALLING SEQUENCE: 
CALLS/G OPEN_FILE 
INPUT PARAMETERS: 
4(AP) Address of descriptor for filename buffer 
B(AP) Address of size of filename 
12(AP) Address of buffer to store file attributes 
16(AP) Address of location to store return status 
OUTPUT PARAMETERS: 
16(AP) Address of location to store return status 
COMPLETION CODES: 


Those returned by SOPEN or SCONNECT 


-ENTRY OPEN_FILE,“M<R2,R3,R4> 


MOVAB MASFAB,R2 
MOVL  4(AP),RO 
MOVL  4(RO),FABSL_FNA(R2) 
MOVE @8(APS,FABSB_FNS(R2) 


SOPEN FAB = (R2) 


Put address of FAB in R2 
Descriptor to filename 
Store filename address 
Store filename size 


Open the file 


BLBC RO, Error 

SCONNECT RAB = MASRAB 

BLBC RO,90$ 

; Copy file attributes into buffer 

12(AP) ,RS ; Address of buffer 
FABSL_ALQ(R2),(R4)+ 3; Allocation quantity 
FABSL_FOP(R2) , (R4)+ ; File process options 
FABSL_MRN(R2), (R46) + ; Maximum record number 
FABSW_DEQ(R2) , (R4)+ ; Default extension quantity 
FABSW_BLS(R2), (R4)+ ; Block size | 
FABSW_MRS(R2), (R4)+ ; Maximum record size 
FABSB_BKS(R2),(R4)+ ; Bucket size . 
FABSB_FSZ(R2),(R4)+ ; Fixed control area size 
FABSB_ORG(R2) , (R4)+ ; Organization 
FABSB_RAT(R2), (R4)+ ; Record attributes 
FABSB_RFM(R2) , (R4)+ ; Record format 


RO,@16(AP) Store status 
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-SBTTL CREATE_FILE = Create a file for GET 


++ 
FUNCTIONAL DESCRIPTION: 
This routine creates a file using the attributes passed to it. 
CALLING SEQUENCE: 
CALLS/G CREATE_FILE 
INPUT PARAMETERS: 
4(AP) Address of descriptor for filename buffer 
B(AP) Address of size of filename 
12(AP) Address of buffer to get file attributes 
16(AP) Address of location to store return status 
OUTPUT PARAMETERS: 
16(AP) Address of location to store return status 
COMPLETION CODES: 


Those returned by SCREATE or SCONNECT 


-ENTRY CREATE_FILE,“*M<R2,R3,R4> 
; Copy file attributes into FAB 


MOVAB MASFAB,R2 


Address of FAB in R2 
MOVL 4 (AP),RO 


Get address of filename desc. 
; Store filename address 


MOVL 4(RO) ,FABSL_FNA(R2) 

MOVE @8(APS,FABSB_FNS(R2) Store filename size 

MOVL 12(AP) ,RG ; File attr. buffer addr. in R4 
MOVL  (R4)+,FABSL_ALQ(R2) ; Allocation quantity 

MOVL (R4)+,FABSL_FOP(R2) ; File process options 

MOVL (R4)+,F ABSL_MRN(R2) ; Maximum record number 
mOVW (R4)+, FABSW_DEQ(R2) ; Default extension quantity 
mOVW (R4)+,FABSW_BLS(R2) ; Block size 

mOVW (R4&)+,FABSW_MRS(R2) ; Maximum record size 

MOVB (R4)+,F?3$B_BKS(Re) ; Bucket size 

MOVB (R4)+,FABSB_FSZ(R2) ; Fixed control area size 
MOVB (R4)+,FABSB_ORG(R2) ; Organization 

MOVE (R4)+,FABSB_RAT(R2) ; Record attributes 

MOVB (R4)+,FABSB_RFM(R2) ; Record format 


; Create the file 


SCREATE FAB = (R2) 
BLBC 0 
SCONNECT 


RAB = MASRAB 


Error 


o 


; Store return status 
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908: MOVL RO,@16(AP) 
RET 
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-SBTTL START_RMS = Start a RMS Read or Write 


:+4 
FUNCTIONAL DESCRIPTION: 


This routine starts a RMS read or write operation 


CALLING SEQUENCE: 


CALLS/G START_RMS 


; INPUT PARAMETERS: 


4 (AP) Address of buffer 
(AP) Address of size of transfer 
2(AP) Address of flag: 
1 = Write 
2 = Read 


; OUTPUT PARAMETERS: 


.ENTRY START_RMS,“M<> 


MOVAL MASRAB 


RO Address of RAB 
CMPB a12CAPs a1 


Read or write 
; Write 


; Do a READ 


10$: 


MOVL 4 (AP) —, UBF (RO) Buffer address 
MOVW a@8(APS ,RABSO_USZ(RO) : Siz 


SREAD RAB = (RO),- 
ERR = MRMS_AST,~- 
SUC = MRMS-AST 
RET 


; Do a Write 


MOVL 4(AP) RABSL RBF (RO) 
MOVW a8(APS,RABSO_RSZ(RO) 


SURITE RAB = (RO),- 
ERR = MRMS_AST,- 
SUC = MRMS~AST 


Buffer address 
Buffer size 


RET 


+ 
“+e 


a 
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-SBTTL CLOSE_FILE = Close the file 


FUNCTIONAL DESCRIPTION: 
; This routine closes the file used by the Master | 
CALLING SEQUENCE: | 
CALLS/G CLOSE_FILE 
INPUT PARAMETERS: 
4(AP) Address of location to store status 
OUTPUT PARAMETERS: 
4(AP) Address of location to store status 


SCLOSE FAB = MASFAB 
MOVL RO,@4( AP) 


LENTRY CLOSE_FILE,“M<> 
| 
} 
} 
| 
| 
| 
| 
| 
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